home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 March / EnigmA AMIGA RUN 05 (1996)(G.R. Edizioni)(IT)[!][issue 1996-03][Skylink CD IV].iso / earcd / program / mui32dev.lha / MUI / Developer / Oberon / txt / MUIApplist.mod < prev    next >
Text File  |  1995-11-19  |  789b  |  36 lines
  1. MODULE MUIApplist;
  2.  
  3. (* $StackChk- $NilChk- $RangeChk- $CaseChk- $OvflChk- $ReturnChk- $ClearVars- *)
  4.  
  5. (* This module is generated by "GenMuiO" © 1995 by Albert Weinert *)
  6.  
  7. IMPORT
  8.   clf := Classface,
  9.   e := Exec,
  10.   m := Mui,
  11.   RootClass,
  12.   SuperClass := MUISemaphore,
  13.   I := Intuition;
  14.  
  15. CONST
  16.   name *= m.cApplist;
  17.  
  18. TYPE
  19.   Class     *= UNTRACED POINTER TO ClassDesc;
  20.   ClassDesc *= RECORD( SuperClass.ClassDesc ) END;
  21.  
  22. VAR
  23.   class * : I.IClassPtr;
  24.  
  25.   PROCEDURE Dispatch * ( cl : I.IClassPtr; obj : I.ObjectPtr; msg : I.MsgPtr ):e.APTR;
  26.     BEGIN
  27.       RETURN SuperClass.Dispatch( cl,obj, msg);
  28.     END Dispatch;
  29.  
  30. BEGIN
  31.   class := m.GetClass( name );
  32.   IF class = NIL THEN HALT( 205 ) END; (* Error : Object not Found *)
  33. CLOSE
  34.   IF class # NIL THEN m.FreeClass( class ) END;
  35. END MUIApplist.
  36.